home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / fglqbx10.zip / 13-01.BAS < prev    next >
BASIC Source File  |  1991-06-07  |  421b  |  30 lines
  1. REM $INCLUDE: 'fastgraf.bi'
  2.  
  3. DEFINT A-Z
  4.  
  5. PRINT "20 Hz tone..."
  6. FGsound 20, 3
  7. FGwaitfor 18
  8.  
  9. PRINT "100 Hz tone..."
  10. FGsound 100, 3
  11. FGwaitfor 18
  12.  
  13. PRINT "1000 Hz tone..."
  14. FGsound 1000, 3
  15. FGwaitfor 18
  16.  
  17. PRINT "warble..."
  18. FGsound 400, 1
  19. FGsound 410, 1
  20. FGsound 400, 1
  21. FGsound 410, 1
  22. FGwaitfor 18
  23.  
  24. PRINT "sliding tone from 100 to 500 Hz..."
  25. FOR Freq = 100 TO 500 STEP 10
  26.    FGsound Freq, 2
  27. NEXT
  28.  
  29. END
  30.